home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / digitalsoundsamv3.0d1.dms / digitalsoundsamv3.0d1.adf / Install < prev    next >
Text File  |  1994-07-07  |  8KB  |  224 lines
  1. ; GVP DSS-3 Install Script
  2. ; Version 1.0
  3. ; 7 July 1994
  4. ; Copyright (c)1994 by Great Valley Products, Inc.
  5.  
  6. ; Written for use with Commodore's Installer, V1.24.
  7.  
  8.  
  9. ;----------------------------- Text Strings -------------------------------
  10.  
  11. (set InstallDisk    "DSS-Install")
  12. (set InstallDiskColon    (cat InstallDisk ":"))
  13. (set DataDisk        "Samples")
  14. (set DataDiskColon    (cat DataDisk ":"))
  15. (set ModDisk        "Modules")
  16. (set ModDiskColon    (cat ModDisk ":"))
  17. (set DSSDrawerName      "DSS-3")
  18. (set DemoDrawerName     "Demo")
  19. (set SampDrawerName     "Samples")
  20. (set ModDrawerName      "Modules")
  21. (set PrgExDrawerName    "Programmers")
  22. (set Mod1EmptyDisk      "Modules1")
  23. (set Mod2EmptyDisk      "Modules2")
  24.  
  25. (set target @default-dest)
  26. (set hdmode 1)
  27.  
  28. ;Ask Installation mode (0: on floppy disks, 1: on hard drive)
  29. (set hdmode (askbool (prompt "Have you a hard drive ?")
  30.                      (help "If you select YES, the 3 DSS disks "
  31.                            "will be installed on your hard drive."
  32.                            "if you select NO, the archived tracker demo "
  33.                            "modules will be decompressed on two floppy disks."
  34.                      )
  35.                      (default 1)
  36.                      (choices "Yes" "No")
  37.             )
  38. )
  39.  
  40. (if hdmode
  41.  (
  42.   ; Ask where to install
  43.   (set target (askdir (prompt "Where shall I create the DSS-3 directory?")
  44.                       (help @askdir-help)
  45.                       (default target)
  46.               )
  47.   )
  48.  
  49.   ; Install DSS3 Software and Utilities.
  50.   (set DSSDrawer (tackon target DSSDrawerName))
  51.   (makedir DSSDrawer (infos))
  52.   (copyfiles (source (tackon InstallDiskColon DSSDrawerName))
  53.              (dest DSSDrawer)
  54.              (infos) (all)
  55.   )
  56.   
  57.   ; Install Tracker Demo files
  58.   (set ModDrawer (tackon DSSDrawer  ModDrawerName))
  59.   (copyfiles (source (tackon InstallDiskColon DemoDrawerName))
  60.              (dest (ModDrawer))
  61.              (pattern "#?")
  62.              (prompt "Shall I install the demo Tracker module?")
  63.              (confirm)
  64.              (help "These DSS3 Run-Module can be launched "
  65.                    "from Workbench or loaded into "
  66.                    "DSS3's Tracker as a demonstration "
  67.                    "example of DSS capabilities")
  68.              (infos)
  69.   )
  70.   
  71.   ; Install sound player into C:
  72.   (copyfiles (source (tackon InstallDiskColon "c"))
  73.              (dest "c:")
  74.              (all) (confirm)
  75.              (prompt "Shall I copy the default sound sample player to C:?")
  76.              (help "This will allow you to play sound samples quickly "
  77.                    "without having to load and run DSS3.")
  78.   )
  79.   
  80.   (askdisk (prompt "Please insert the '" DataDisk "' disk into any drive.")
  81.            (dest DataDisk)
  82.            (help @askdisk-help)
  83.   )
  84.   
  85.   (copyfiles (source (tackon DataDiskColon "UNLZ"))
  86.              (dest "RAM:")
  87.   )
  88.   ; Install default sound samples
  89.   (set InstallSound (askbool (prompt "Shall I install the demo sample sounds?")
  90.                              (help "If you select YES, all samples from "
  91.                                    "the DSS 'Samples' disk will be "
  92.                                    "installed in the 'Samples' drawer "
  93.                                    "which is on the same drawer as DSS3"
  94.                              )
  95.                              (default 1)
  96.                              (choices "Yes" "No")
  97.                     )
  98.   )
  99.   (if InstallSound
  100.    (
  101.     (set SampDrawer (tackon DSSDrawer  SampDrawerName))
  102.     (copyfiles (source DataDiskColon) (dest SampDrawer) (infos) (all))
  103.     (delete (tackon SampDrawer "player.lha"))
  104.     (delete (tackon SampDrawer "UNLZ"))
  105.     (delete (tackon SampDrawer "more"))
  106.     (delete (tackon SampDrawer "Read.Me"))
  107.     (delete (tackon SampDrawer "Read.Me.info"))
  108.     (delete (tackon SampDrawer "Lisez.Moi"))
  109.     (delete (tackon SampDrawer "Lisez.Moi.info"))
  110.    )
  111.   )
  112.   ; Install programmers example
  113.   (set InstallPrgEx (askbool (prompt "Shall I install the Tracker source code example?")
  114.                              (help "If you select YES, a directory called "
  115.                                    "'Programmers' will be created inside the DSS3 "
  116.                                    "drawer, and the programmers files will be copied"
  117.                              )
  118.                              (default 1)
  119.                              (choices "Yes" "No")
  120.                     )
  121.   )
  122.   (if InstallPrgEx
  123.    (
  124.     (set PrgExDrawer (tackon DSSDrawer PrgExDrawerName))
  125.     (makedir PrgExDrawer (infos))
  126.     (run (cat "RAM:UNLZ x " (tackon DataDiskColon "player.lha") " " PrgExDrawer "/" ))
  127.    )
  128.   )
  129.  
  130.   (askdisk (prompt "Please insert the '" ModDisk "' disk into any drive.")
  131.            (dest ModDisk)
  132.            (help @askdisk-help)
  133.   )
  134.  
  135.   ; Install default tracker modules
  136.   (set InstallMod   (askbool (prompt "Shall I install the demo Tracker modules disk?")
  137.                              (help "If you select YES, all modules from "
  138.                                    "the DSS 'Modules' disk will be "
  139.                                     "installed in the 'Modules' drawer "
  140.                                     "which is on the same drawer as DSS3"
  141.                              )
  142.                              (default 1)
  143.                              (choices "Yes" "No")
  144.                     )
  145.   )
  146.   (if InstallMod
  147.    (
  148.     ;(copyfiles (source ModDiskColon) (dest ModDrawer) (pattern "#?") (infos) (files))
  149.     (run (cat "RAM:UNLZ x " (tackon ModDiskColon "modules/modules_1.lha") " " ModDrawer "/" ))
  150.     (run (cat "RAM:UNLZ x " (tackon ModDiskColon "modules/modules_2.lha") " " ModDrawer "/" ))
  151.    )
  152.   )
  153.   (delete "RAM:UNLZ")
  154.  )
  155.  (
  156.   ; Floppy disk mode
  157.   (message "IMPORTANT: before installing DSS, make a copy of "
  158.            "the 3 DSS disks and rename them to their "
  159.            "original names.\n\n"
  160.            "USING DSS ON FLOPPY: You could use directly the 'DSS-Install' disk "
  161.            "or copy the 'DSS3' program and the 'fonts' directory "
  162.            "to another floppy disk.\n\n" 
  163.            "FLOPPY INSTALLATION: The program and the demo samples are ready to use, "
  164.            "but the the demo tracker modules are archived.\n"
  165.            "You will need 2 empty formated floppy disks labeled 'Modules1' and 'Modules2' to store those modules.\n"
  166.            "Press 'Abort' and initialize the disks if they are not yet ready..."
  167.   )
  168.   ; Install sound player into C:
  169.   (copyfiles (source (tackon InstallDiskColon "c"))
  170.              (dest "c:")
  171.              (all) (confirm)
  172.              (prompt "Shall I copy the default sound sample player to C:?")
  173.              (help "This will allow you to play sound samples quickly "
  174.                    "without having to load and run DSS3.")
  175.   )
  176.  
  177.   (askdisk (prompt "Please insert the '" DataDisk "' disk into any drive.")
  178.            (dest DataDisk)
  179.            (help @askdisk-help)
  180.   )
  181.   (copyfiles (source (tackon DataDiskColon "UNLZ"))
  182.              (dest "RAM:")
  183.   )
  184.  
  185.   (askdisk (prompt "Please insert the '" ModDisk "' disk into any drive.")
  186.            (dest ModDisk)
  187.            (help @askdisk-help)
  188.   )
  189.   (copyfiles (source (tackon ModDiskColon "modules/modules_1.lha"))
  190.              (dest "RAM:")
  191.   )
  192.   (askdisk (prompt "Please insert the '" Mod1EmptyDisk "' disk into any drive.")
  193.            (dest Mod1EmptyDisk)
  194.            (help @askdisk-help)
  195.   )
  196.   (run (cat "RAM:UNLZ x RAM:modules_1.lha " Mod1EmptyDisk ":" ))
  197.   (delete "RAM:modules_1.lha")
  198.  
  199.   (askdisk (prompt "Please insert the '" ModDisk "' disk into any drive.")
  200.            (dest ModDisk)
  201.            (help @askdisk-help)
  202.   )
  203.   (copyfiles (source (tackon ModDiskColon "modules/modules_2.lha"))
  204.              (dest "RAM:")
  205.   )
  206.   (askdisk (prompt "Please insert the '" Mod2EmptyDisk "' disk into any drive.")
  207.            (dest Mod2EmptyDisk)
  208.            (help @askdisk-help)
  209.   )
  210.   (run (cat "RAM:UNLZ x RAM:modules_2.lha " Mod2EmptyDisk ":" ))
  211.   (delete "RAM:modules_2.lha")
  212.  )
  213. )
  214.  
  215. (if (exists "S:DSS3.Prefs") 
  216.  (delete "S:DSS3.Prefs")
  217. )
  218.  
  219. (set @default-dest target)
  220.  
  221. (exit "\n"
  222.       "Please don't forget to fill out and mail your Warranty Registration Card!"
  223. )
  224.